home *** CD-ROM | disk | FTP | other *** search
/ U.S. Robotics Connections 2 / US Robotics Connections.iso / pc / sourcepc / palmpc.dir / 00219.ls < prev    next >
Encoding:
Text File  |  1996-03-01  |  1.1 KB  |  44 lines
  1. on mouseDown
  2.   global gCalNum, gSetNum, gLastNum, gOperation, gAnswer
  3.   if gOperation = EMPTY then
  4.     exit
  5.   end if
  6.   if gOperation = "+" then
  7.     set lNum to gCalNum * gSetNum * 0.01
  8.     set gCalNum to lNum
  9.     set gCalNum to gCalNum + gSetNum
  10.   else
  11.     if gOperation = "-" then
  12.       set lNum to gCalNum * gSetNum * 0.01
  13.       set gCalNum to lNum
  14.       set gCalNum to gSetNum - gCalNum
  15.     else
  16.       if gOperation = "/" then
  17.         set lNum to gSetNum * 100 * 1.0 / gCalNum
  18.         set gCalNum to lNum
  19.       else
  20.         if gOperation = "*" then
  21.           set lNum to gCalNum * gSetNum * 0.01
  22.           set gCalNum to lNum
  23.         end if
  24.       end if
  25.     end if
  26.   end if
  27.   set the itemDelimiter to "."
  28.   set lText1 to item 1 of string(gCalNum)
  29.   set lText2 to item 2 of string(gCalNum)
  30.   if value(lText2) = 0 then
  31.     set gCalNum to integer(gCalNum)
  32.   end if
  33.   if the number of chars in lText1 > 9 then
  34.     error()
  35.     abort()
  36.   end if
  37.   set the itemDelimiter to ","
  38.   set gSetNum to gCalNum
  39.   set gOperation to EMPTY
  40.   DrawNum()
  41.   set gCalNum to 0
  42.   set gAnswer to 1
  43. end
  44.